Nesta análise serão observados os episódios da primeira até a quarta temporada das séries Vikings e Game of Thrones, utilizando dados do IMDB.

series = read_csv(here("data/series_from_imdb.csv"), 
                    progress = FALSE,
                    col_types = cols(.default = col_double(), 
                                     series_name = col_character(), 
                                     episode = col_character(), 
                                     url = col_character(),
                                     season = col_character())) %>% 
    filter(series_name %in% c("Vikings", "Game of Thrones")) %>%
    filter(season %in% 1:4)

Qual das duas séries é a mais bem avaliada?

p <- ggplot(data = series,
            mapping = aes(x = season_ep, 
            y = user_rating,
            size = user_votes,
            color = series_name))  + 
    geom_jitter(alpha = 0.5) +
    facet_wrap(~season) +
    labs(x = "Episódio",
         y = "Nota do Episódio",
         size = "Quantidade de Votos",
         color = "Nome da Série")
ggplotly(p)

Nos gráficos acima, que estão divididos por temporadas, podemos observar que em geral os pontos dos episódios que representam a série Game of Thrones estão acima dos pontos que representam a série Vikings, dessa forma, pode-se concluir que a dentre as duas, GOT é a mais bem avaliada pelos usuários do IMDB. Alguns outras características interessantes de serem observadas são: - A quantidade de votos que cada episódio recebe: Esta informação esta representada pelo tamanho dos pontos e pode ser quantificada ao se colocar o cursor em cima do ponto desejado no valor de “user_votes”. A diferença de tamanho dos pontos vermelhos para os azuis é expressiva. - Nas três primeiras temporadas de Game of Thrones os episódios anteriores ao último são sempre os mais altos no gráfico, ou seja, possuem melhor avaliação. - A partir da segunda temporada, podemos observar que os episódios de numéro dez, estão sempre acima da média.

LS0tDQp0aXRsZTogIlByb2JsZW1hIDIgLSBDaGVja3BvaW50IDEiDQphdXRob3I6ICJNYXRoZXVzIEZyZWl0YXMiDQpkYXRlOiAiMjMgZGUgYWJyaWwgZGUgMjAxOCINCm91dHB1dDoNCiAgaHRtbF9ub3RlYm9vazoNCiAgICB0b2M6IHllcw0KICAgIHRvY19mbG9hdDogeWVzDQogIGh0bWxfZG9jdW1lbnQ6DQogICAgZGZfcHJpbnQ6IHBhZ2VkDQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZmxvYXQ6IHllcw0KLS0tDQoNCmBgYHtyIHNldHVwLCBlY2hvPUZBTFNFLCB3YXJuaW5nPUZBTFNFLCBtZXNzYWdlPUZBTFNFfQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpsaWJyYXJ5KGhlcmUpDQpsaWJyYXJ5KHBsb3RseSkNCnRoZW1lX3NldCh0aGVtZV9idygpKQ0KYGBgDQoNCg0KTmVzdGEgYW7DoWxpc2Ugc2Vyw6NvIG9ic2VydmFkb3Mgb3MgZXBpc8OzZGlvcyBkYSBwcmltZWlyYSBhdMOpIGEgcXVhcnRhIHRlbXBvcmFkYSBkYXMgc8OpcmllcyBWaWtpbmdzIGUgR2FtZSBvZiBUaHJvbmVzLCB1dGlsaXphbmRvIGRhZG9zIGRvIElNREIuDQpgYGB7cn0NCnNlcmllcyA9IHJlYWRfY3N2KGhlcmUoImRhdGEvc2VyaWVzX2Zyb21faW1kYi5jc3YiKSwgDQogICAgICAgICAgICAgICAgICAgIHByb2dyZXNzID0gRkFMU0UsDQogICAgICAgICAgICAgICAgICAgIGNvbF90eXBlcyA9IGNvbHMoLmRlZmF1bHQgPSBjb2xfZG91YmxlKCksIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlcmllc19uYW1lID0gY29sX2NoYXJhY3RlcigpLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBlcGlzb2RlID0gY29sX2NoYXJhY3RlcigpLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB1cmwgPSBjb2xfY2hhcmFjdGVyKCksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2Vhc29uID0gY29sX2NoYXJhY3RlcigpKSkgJT4lIA0KICAgIGZpbHRlcihzZXJpZXNfbmFtZSAlaW4lIGMoIlZpa2luZ3MiLCAiR2FtZSBvZiBUaHJvbmVzIikpICU+JQ0KICAgIGZpbHRlcihzZWFzb24gJWluJSAxOjQpDQpgYGANCg0KDQojIyBRdWFsIGRhcyBkdWFzIHPDqXJpZXMgw6kgYSBtYWlzIGJlbSBhdmFsaWFkYT8gDQoNCmBgYHtyfQ0KcCA8LSBnZ3Bsb3QoZGF0YSA9IHNlcmllcywNCiAgICAgICAgICAgIG1hcHBpbmcgPSBhZXMoeCA9IHNlYXNvbl9lcCwgDQogICAgICAgICAgICB5ID0gdXNlcl9yYXRpbmcsDQogICAgICAgICAgICBzaXplID0gdXNlcl92b3RlcywNCiAgICAgICAgICAgIGNvbG9yID0gc2VyaWVzX25hbWUpKSAgKyANCiAgICBnZW9tX2ppdHRlcihhbHBoYSA9IDAuNSkgKw0KICAgIGZhY2V0X3dyYXAofnNlYXNvbikgKw0KICAgIGxhYnMoeCA9ICJFcGlzw7NkaW8iLA0KICAgICAgICAgeSA9ICJOb3RhIGRvIEVwaXPDs2RpbyIsDQogICAgICAgICBzaXplID0gIlF1YW50aWRhZGUgZGUgVm90b3MiLA0KICAgICAgICAgY29sb3IgPSAiTm9tZSBkYSBTw6lyaWUiKQ0KDQoNCmdncGxvdGx5KHApDQpgYGANCk5vcyBncsOhZmljb3MgYWNpbWEsIHF1ZSBlc3TDo28gZGl2aWRpZG9zIHBvciB0ZW1wb3JhZGFzLCBwb2RlbW9zIG9ic2VydmFyIHF1ZSBlbSBnZXJhbCBvcyBwb250b3MgZG9zIGVwaXPDs2Rpb3MgcXVlIHJlcHJlc2VudGFtIGEgc8OpcmllIEdhbWUgb2YgVGhyb25lcyBlc3TDo28gYWNpbWEgZG9zIHBvbnRvcyBxdWUgcmVwcmVzZW50YW0gYSBzw6lyaWUgVmlraW5ncywgZGVzc2EgZm9ybWEsIHBvZGUtc2UgY29uY2x1aXIgcXVlIGEgZGVudHJlIGFzIGR1YXMsIEdPVCDDqSBhIG1haXMgYmVtIGF2YWxpYWRhIHBlbG9zIHVzdcOhcmlvcyBkbyBJTURCLiBBbGd1bnMgb3V0cmFzIGNhcmFjdGVyw61zdGljYXMgaW50ZXJlc3NhbnRlcyBkZSBzZXJlbSBvYnNlcnZhZGFzIHPDo286DQogICAgLSBBIHF1YW50aWRhZGUgZGUgdm90b3MgcXVlIGNhZGEgZXBpc8OzZGlvIHJlY2ViZTogDQogICAgICAgIEVzdGEgaW5mb3JtYcOnw6NvIGVzdGEgcmVwcmVzZW50YWRhIHBlbG8gdGFtYW5obyBkb3MgcG9udG9zIGUgcG9kZSBzZXIgcXVhbnRpZmljYWRhIGFvIHNlIGNvbG9jYXIgbyBjdXJzb3IgZW0gY2ltYSBkbyBwb250byBkZXNlamFkbyBubyB2YWxvciBkZSAidXNlcl92b3RlcyIuIEEgZGlmZXJlbsOnYSBkZSB0YW1hbmhvIGRvcyBwb250b3MgdmVybWVsaG9zIHBhcmEgb3MgYXp1aXMgw6kgZXhwcmVzc2l2YS4NCiAgICAtIE5hcyB0csOqcyBwcmltZWlyYXMgdGVtcG9yYWRhcyBkZSBHYW1lIG9mIFRocm9uZXMgb3MgZXBpc8OzZGlvcyBhbnRlcmlvcmVzIGFvIMO6bHRpbW8gc8OjbyBzZW1wcmUgb3MgbWFpcyBhbHRvcyBubyBncsOhZmljbywgb3Ugc2VqYSwgcG9zc3VlbSBtZWxob3IgYXZhbGlhw6fDo28uDQogICAgLSBBIHBhcnRpciBkYSBzZWd1bmRhIHRlbXBvcmFkYSwgcG9kZW1vcyBvYnNlcnZhciBxdWUgb3MgZXBpc8OzZGlvcyBkZSBudW3DqXJvIGRleiwgZXN0w6NvIHNlbXByZSBhY2ltYSBkYSBtw6lkaWEuDQoNCg==